library('lattice')

arquivo = commandArgs()[6];

d <- read.table(arquivo)

png(filename=paste(paste(arquivo, '.png', sep='')), width = 2048, height = 480)

dotplot(d$V2 ~ d$V1, data=d, aspect=0.2)

dev.off()
